' Com estas poucas linhas voc converter uma imagem BMP para JPG
' No esquea de copiar o arquivo Bmp2Jpg.ddl para o diretrio \Windows\System

Private Declare Function BmpToJpeg Lib "Bmp2Jpeg.dll" (ByVal BmpFilename As String, ByVal JpegFilename As String, ByVal CompressQuality As Integer) As Integer

' Configura fator de compresso/qualidade da imagem jpg (de 1 at 100)

wFator = 50
BmpToJpeg "imagem.bmp", "imagem.jpg", wFator